Chip 1997 March/CHIP Mart 1997.iso/SurfCam/SURFCAM.Z/POSTFORM.L

Text File | 1996-04-01 | 45.0 KB | 1,642 lines

name Cincinatti

O >4
N >3
G >2
X ->34
Z ->34
D >2
I ->34
K ->34
U ->34
W ->34
P ->34
Q ->34
R ->34
F >33
V 2
T 4
S >4
M >2

ModalGs 0 1 2 3 73 76 80 81 82 83 84 85  # List of g codes that are modal

First#? N                             # Y or N  'Output 1st sequence no.
Sequence#s N 1 10 10                  # Char, freq, incr & start

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 13 14 19                      # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes


ByDiameter? N                         # Y or N  'Output X val. by diameter
CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 70 71                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G21                              # Linear move
Rapid G0                              # Rapid positioning word
Cw G22                                # Circular move clockwise
Ccw G23                               # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments

Drill                                 # Drilling canned/manual cycle
G0 Z[SClear]
G1 Z[H]
G0 Z[SClear]
end

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G84 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G85 Z[H] F[FRate]
end cancel

Bore                                  # Boring canned/manual cycle
G74 R0
G74 Z[H] R[SClear] F[FRate]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
end

1stToolChange                         # First tool change
O[Comp] G90 S[Speed] M42
G[FeedType] M31
G92 S[MaxRPM]
G0 X.4 Z.4
M[Direct]
V77 T[Tool] M6
G0 X[V] Z[H] M32
G[SpeedType] R[V] S[Speed]
End

Infeed                                # Enable cutter comp
G21 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G21 X[V] Z[H] F[FRate]
end
AutoThread                            # Automatic thread canned cycle
G33
End

ToolChange                            # Secondary tool changes
O[Comp] G90 S[Speed] M42
G[FeedType] M31
G92 S[MaxRPM]
G0 X.4 Z.4
M[Direct]
V77 T[Tool] M6
G0 X[V] Z[H] M32
G[SpeedType] R[V] S[Speed]
End

EndCode                               # End of the program
G0 X[EndV] Z[EndH]
M30
End

name Citizen F10 Screw machine

O >4
N >3
G >2
X ->3.>4
Z ->3.>4
D >2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
Q ->3.>4
R ->3.>4
F >3.>5
T >2
S >2
M >2

ModalGs 0 1 2 3 4                     # List of g codes that are modal

Sequence#s N 1 10 10                  # Char, freq, incr & start
First#? N                             # Y or N  'Output 1st sequence no.

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 52 53 52                      # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter

RevSigns Z K                          # List of letters to reverse signs

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments


Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G84 Z[H] F[FRate]
end

Ream                                  # Reaming canned/manual cycle
G85 Z[H] F[FRate]
end

AutoThread                            # Automatic thread canned cycle
G33
End

Bore                                  # Boring canned/manual cycle
G74 R0
G74 Z[H] R[SClear] F[FRate]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
O[Program#]
G0 G[Unitmode] G99 M6
G69
G50 X[-.06] Z0
End

1stToolChange                         # First tool change
G[FeedType] G[SpeedType] M[Direct] S[Speed]
G0 Z[SClear]
T[Tool]
G68
M[Cool]
G0 X[V] Z[SClear]
T[Comp]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H]
end
Drill                                 # Drilling canned/manual cycle
G0 X[-1]
G1 Z[H] U0 F[FRate]
G0 Z[SClear] T0
end

ToolChange                            # Secondary tool changes
T0
T[Tool]
G[FeedType] G[SpeedType] M[Direct] S[Speed]
M[Cool]
G0 Z[SClear]
G68
T[Comp]
End

EndCode                               # End of the program
M7
G0 X[-.06] Z0 T0
M2
End

name Fanuc 0T

% 00
O >4
N >3
G >2
X ->3.>4
Z ->3.>4
D 2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
A 60 P
Q ->3.>4
q >4 Q
R ->3.>4
F >3.>6
T 2
t 2
S >4
M >2

ModalGs 0 1 2 3 73 76 80 81 82 83 84 85  # List of g codes that are modal

First#? N                             # Y or N  'Output 1st sequence no.
Sequence#s N 0 1 1                    # Char, freq, incr & start
Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes
Dcomp 41 42 40                        # Left, Right & Cancel m codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter
RevSigns X I                          # List of letters to reverse signs
CtrIncremental? Y                     # Y or N  'Inc or abs I & J
Inc/Abs G 91 90                       # Inc & Abs char. & values
Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G3                                 # Circular move clockwise
Ccw G2                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments

Drill                                 # Drilling canned/manual cycle
G74 R[Depth]
G74 Z[Depth] F[FRate]
end

Peck                                  # Pecking canned/manual cycle
G74 R[Depth]
G74 Z[H] Q[SBite] F[FRate]
end

Tap                                   # Tapping canned/manual cycle
G84 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G85 Z[H] F[FRate]
end cancel

Bore                                  # Boring canned/manual cycle
G74 R0
G74 Z[H] R[SClear] F[FRate]
end

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
%0
O[Program#]
end

1stToolChange                         # First tool change
T[Tool]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
G0 X[V] Z[H] T[Tool] t[Dcomp] M[Cool]
End

Infeed                                # Enable cutter comp
G1 G[Side] X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 Z[ToolH] T[Tool] t0 M9
M1
T[Tool]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
G0 X[V] Z[H] T[Tool] t[Dcomp] M[Cool]
End

EndCode                               # End of the program
G0 X[ToolH] Z[ToolH] T[Tool] t0 M9
M5
M30
%0
End

Replace "t" with ""

name Fanuc 10T

% 00
O >4
N >3
G >2
X ->3.>4
Z ->3.>4
D >2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
A 60 P
P ->3.>4
Q ->3.>4
q >4 Q
R ->3.>4
F >3.>3
T 2
t 2
S >4
M >2

ModalLetters X Z I K F S M            # List of letters that are modal

ModalGs 0 1 2 3 80 81 82 83 84 85     # List of g codes that are modal

Sequence#s N 0 1 1                    # Char, freq, incr & start
First#? N                             # Y or N  'Output 1st sequence no.
Last#? N                              # Y or N  'Output last sequence no.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Comment ( )                           # Begin End comment char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes
Dcomp 41 42 40                        # Left, Right & Cancel m codes

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode R                             # I J or R or I J K L

ByDiameter? Y                         # Y or N  'Output X val. by diameter
RevSigns X                            # List of letters to reverse signs
Spaces? N                             # Y or N  'Spaces between words

Incremental? N                        # Y or N  'Inc or abs output
CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? Y                        # Y or N  'Break arcs at quadrants

UppercaseComments? Y                  # Y or N 'Require uppercase comments

Drill                                 # Drilling canned/manual cycle
G74 R[Depth]
G74 Z[Depth] F[FRate]
end

Peck                                  # Pecking canned/manual cycle
G74 R[Depth]
G74 Z[H] Q[SBite] F[FRate]
end

Tap                                   # Tapping canned/manual cycle
G84 Z[H] F[FRate]
end

Ream                                  # Reaming canned/manual cycle
G85 Z[H] F[FRate]
end

Bore                                  # Boring canned/manual cycle
G74 R0
G74 Z[H] R[SClear] F[FRate]
end

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] P[Peck1] Q[VLeave] R0 F[Frate]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
%0
O[Program#]
End

1stToolChange                         # First tool change
G0 X[Val1] Z[Val2]
T[Tool] t0
G[FeedType] G[SpeedType] S[Speed] M[Direct]
G0 X[V] Z[H] T[Tool] t[Dcomp] M[Cool]
End

Infeed                                # Enable cutter comp
G1 G41 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 G40 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 T[LastTool] t0 Z[Val2] M5
T[Tool] t0
G[FeedType] G[SpeedType] S[Speed] M[Direct]
G0 X[V] Z[H] T[Tool] t[Dcomp] M[Cool]
End

EndCode                               # End of the program
G0 X[Val1] Z[Val2] T[Tool] t0 M5
M30
%0
End

Ask [Val1] " Enter the X [radius] home value: " "5.0"
Ask [Val2] " Enter the Z home value: " "10.0"

Replace "t" with ""

name Fanuc 5T

O >4
N >3
G >2
X ->3.>4
Z ->3.>4
D >2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
A 60 P
Q ->3.>4
q >4 Q
R ->3.>4
F >3.>3
T 2
S >4
M >2

RevSigns X I                          # List of letters to reverse signs

ModalGs 0 1 2 3 73 76 80 81 82 83 84 85  # List of g codes that are modal

First#? N                             # Y or N  'Output 1st sequence no.
Sequence#s N 0 1 1                    # Char, freq, incr & start

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Drill                                 # Drilling canned/manual cycle
G1 Z[H] F[Frate]
G0 Z[SClear]
end

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G78 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G1 Z[H] F[FRate]
G0 Z[SClear]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
O[Program#]
end

1stToolChange                         # First tool change
T0
G28 W0
G28 U0
G50 X0 Z0
T[Tool]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 Z[ToolH] M5
T0
T[Tool]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

EndCode                               # End of the program
G0 Z[ToolH]
G28 W0 M5
G28 U0
M30
End

name Fanuc 6T

O >4
N >3
G >2
X ->3.>4
Z ->3.>4
D >2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
A 60 P
Q ->3.>4
q ->3.>4 Q
R ->3.>4
F >3.>3
T 2
S >4
M >2

RevSigns X I                          # List of letters to reverse signs

ModalGs 0 1 2 3 73 76 80 81 82 83 84 85  # List of g codes that are modal

First#? N                             # Y or N  'Output 1st sequence no.
Sequence#s N 0 1 1                    # Char, freq, incr & start

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments


AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Drill                                 # Drilling canned/manual cycle
G1 Z[H] F[Frate]
G0 Z[SClear]
end

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G78 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G1 Z[H] F[FRate]
G0 Z[SClear]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
O[Program#]
T0
end

1stToolChange                         # First tool change
G28 W0
G28 U0
G50 X0 Z0
T[Tool]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 Z[ToolH] M5
T0
T[Tool]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

EndCode                               # End of the program
G0 Z[ToolH]
G28 W0 M5
G28 U0
M30
End

name GE 550 Absolute

N 3
G 2
X ->34
Z ->34
D 2
I ->34
K ->34
F >33
T 3
S 2
M 2

ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal

Sequence#s N 1 1 1                    # Char, freq, incr & start

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.
Comment ( )                           # Begin End comment char.

Spindle 43 44 45                      # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? Y                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid F80                             # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments

Drill                                 # Drilling canned/manual cycle
Z[Depth] F[FRate]
Z[H]
end
Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
Z[H] F[FRate]
end cancel
Ream                                  # Reaming canned/manual cycle
Z[H] F[FRate]
end cancel

Bore                                  # Boring canned/manual cycle
Z[H] F[FRate]
Z[SClear]
end

Cancel                                # Cancel a canned/manual cycle
end

StartCode                             # Start of the program
G1 X[WorkV] Z[WorkH] F80
End

1stToolChange                         # First tool change
G92 X0 Z[Length]
G90 T[Tool] M[Direct]
G94 S[Speed] M[Cool]
G1 X[V] Z[H] F80
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end
AutoThread                            # Automatic thread canned cycle
G32
End

ToolChange                            # Secondary tool changes
G1 X0 Z[LastLength] F80
T0 M1
G92 X0 Z[Length]
G90 T[Tool] M[Direct]
G94 S[Speed] M[Cool]
G1 X[V] Z[H] F80
End

EndCode                               # End of the program
G1 X0 Z[LastLength] F80 M24
M25
T0 M1
G1 X[EndV] Z[EndH] F80
M30
End

name GE 550 Incremental

N 3
G >2
X ->3.4
Z ->3.4
D 2
I ->3.4
K ->3.4
F >3.3
A >3.3 F
S 2
T 3

ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal

Sequence#s N 1 1 1                    # Char, freq, incr & start

Incremental? Y                        # Y or N  'Inc or abs output

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.
Comment ( )                           # Begin End comment char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? Y                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed                                  # Linear move
Rapid A0.1                            # Rapid positioning word
Cw                                    # Circular move clockwise
Ccw                                   # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments


Drill                                 # Drilling canned/manual cycle
Z[Depth] F[FRate]
Z[H] A0.1
end

AutoThread                            # Automatic thread canned cycle
G33
End

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
Z[H] F[FRate]
end cancel

Bore                                  # Boring canned/manual cycle
Z[H] F[FRate]
Z[SClear] A0.1
end

Cancel                                # Cancel a canned/manual cycle
end

StartCode                             # Start of the program
End

1stToolChange                         # First tool change
S9 T[Tool]
X[V] Z[H] A0.1
End

Infeed                                # Enable cutter comp
X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
X[V] Z[H]
end

ToolChange                            # Secondary tool changes
T0
X[ToolV] Z[ToolH] A0.1
S9 T[Tool]
X[V] Z[H]
End

EndCode                               # End of the program
T0
X[ToolV] Z[ToolH] A0.1
End

name Generic

% 00
! 00
O 4
N 3
G 2
X ->3.>4
x ->3.>4 X
Z ->3.>4
D 2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
A 60 P
Q ->3.>4
q ->3.>4 Q
R ->3.>4
F >3.>3
T 2
t 2
S >4
M 2

ModalLetters X Z F                    # List of letters that are modal

ModalGs 0 1 2 3 73 76 80 81 82 83 84 85  # List of g codes that are modal

Sequence#s N 0 1 1                    # Char, freq, incr & start
First#? N                             # Y or N  'Output 1st sequence no.
Last#? N                              # Y or N  'Output last sequence no.

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
DComp 41 42 40                        # Left, Right & Cancel m codes
LComp 43 49                           # On & Off codes

SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter
CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants
CtrCode R                             # I J or R or I J K L

Inc/Abs G 91 90                       # Inc & Abs char. & values
Inch/MM 20 21                         # Inch & Metric g codes

Spaces? Y                             # Y or N  'Spaces between words
Incremental? N                        # Y or N  'Inc or abs output

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

RevSigns X x                          # List of letters to reverse signs

UppercaseComments? Y                  # Y or N 'Require uppercase comments

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Drill                                 # Drilling canned/manual cycle
G74 Z[Depth] F[Frate]
end

Peck                                  # Pecking canned/manual cycle
G74 Z[Depth] K[VBite] F[Frate]
end

Ream                                  # Reaming canned/manual cycle
G1 Z[H] F[FRate]
G1 Z[VClear]
end

Bore                                  # Boring canned/manual cycle
G1 Z[H] F[FRate]
G1 Z[VClear]
end

Back                                  # Back boring canned/manual cycle
G1 Z[H] F[FRate]
G1 Z[VClear]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
%0
!0 O[Program#]
end

1stToolChange                         # First tool change
G50 x[ToolH] Z[ToolV]
G0 T[Tool] t[Tool] M42
G[SpeedType] S[Speed] M[Direct]
X[V] Z[H] M[Cool]
End

Infeed                                # Enable cutter comp
G1 G[Side] X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 G40 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
M[CoolantOff]
T[LastTool] t0
G50 x[ToolH] Z[ToolV]
G0 T[Tool] t[Tool] M42
G[SpeedType] S[Speed] M[Direct]
X[V] Z[H] M[Cool]
End

EndCode                               # End of the program
G0 x[ToolV] Z[ToolH] M[CoolantOff]
T[Tool] t0 M5
M2
End

  #LineCode
  #G1 X[V] Z[H] F[Frate]
  #End

  #RapidCode
  #G0 X[V] Z[H]
  #End

  #CcwCode
  #G3 X[V] Z[H] R[ArcRad]
  #End

  #CwCode
  #G2 X[V] Z[H] R[ArcRad]
  #End

  #Tap
  #G78 Z[H] F[FRate]
  #end cancel

  #LTap
  #G78 Z[H] F[FRate]
  #end cancel

  #Custom1
  #End

  #Custom2
  #End

  #Custom3
  #End

  #Upon Turret
  #M13
  #End

Replace " t" with ""

name Ikegai Fanuc 5T

O >4
N >3
G >2
X ->3.>4
Z ->3.>4
D >2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
A 60 P
Q ->3.>4
q >4 Q
R ->3.>4
F >3.>3
T 2
S >4
M >2

ModalGs 0 1 2 3 73 76 80 81 82 83 84 85  # List of g codes that are modal

First#? N                             # Y or N  'Output 1st sequence no.
Sequence#s N 0 1 1                    # Char, freq, incr & start
Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode I K                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

RevSigns X I                          # List of letters to reverse signs

UppercaseComments? Y                  # Y or N 'Require uppercase comments

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Drill                                 # Drilling canned/manual cycle
G1 Z[H] F[Frate]
G0 Z[SClear]
end

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G78 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G1 Z[H] F[FRate]
G0 Z[SClear]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
O[Program#]
end

1stToolChange                         # First tool change
T[Tool]
G0 Z.2
X6 Z6
T[Tool] M9
M1
G50 X6 Z6 T[Tool] S[Speed] M38
G[SpeedType] S[Speed] M[Direct]
T[Tool] M8
G0 X[V] Z[H]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
X6 Z6
T[Tool] M9
M1
G50 X6 Z6 T[Tool] S[Speed] M38
G[SpeedType] S[Speed] M[Direct]
T[Tool] M8
G0 X[V] Z[H]
End

EndCode                               # End of the program
G0 Z[ToolH]
G28 W0 M5
G28 U0
M30
End

name Mitsubishi L0

O >4
N >4
G >2
X ->3.>4
Z ->3.>4
d >2 D
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
D ->3.>4
H >2
F >3.>3
T 4
S >4
M >2

RevSigns X I                          # List of letters to reverse signs

ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal

Sequence#s N 1 1 1                    # Char, freq, incr & start
First#? N                             # Y or N  'Output 1st sequence no.

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

RevTurret2? Y
HCode2 Z
VCode2 X

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? Y                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G2                                 # Circular move clockwise
Ccw G3                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments

AutoThread                            # Automatic thread canned cycle
G32
End

Drill                                 # Drilling canned/manual cycle
G1 Z[H] F[Frate]
G0 Z[SClear]
end

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G78 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G1 Z[H] F[FRate]
G0 Z[SClear]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
O[Program#]
End

1stToolChange                         # First tool change
T0
G28 W0
G28 U0
G50 X0 Z0
M1
T[Tool]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] d[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 Z[ToolH] M5
T0
M1

T[Tool]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

EndCode                               # End of the program
G0 Z[ToolH] X[ToolV]
G28 W0 M5
G28 U0
M30
End

name Mori-Seiki SL25

% 00
N >4
G 2
X ->34
Z ->34
D 2
I ->34
K ->34
U ->34
W ->34
P ->34
A 60 P
Q ->34
q ->34 Q
R ->34
F >34
T 4
S >4
M 2

ModalGs 0 1 2 3 76 80 81 82 83 84 85  # List of g codes that are modal

Sequence#s N 1 10 10                  # Char, freq, incr & start
First#? y                             # Y or N  'Output 1st sequence no.

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Coolant 8 9 8                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes


ByDiameter? Y                         # Y or N  'Output X val. by diameter
RevSigns X I                          # List of letters to reverse signs
CtrIncremental? Y                     # Y or N  'Inc or abs I & J

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G3                                 # Circular move clockwise
Ccw G2                                # Circular move counter clockwise

UppercaseComments? Y                  # Y or N 'Require uppercase comments

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Drill                                 # Drilling canned/manual cycle
G1 Z[Depth] F[FRate]
G0 Z[SClear]
end

Peck                                  # Pecking canned/manual cycle
None
end

Tap                                   # Tapping canned/manual cycle
G84 Z[H] F[FRate]
end

Ream                                  # Reaming canned/manual cycle
G85 Z[H] F[FRate]
end

Bore                                  # Boring canned/manual cycle
G74 R0
G74 Z[H] R[SClear] F[FRate]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
%0
End

1stToolChange                         # First tool change
G0 M1
G50 X0 Z0
G0 T100
G0 X0 Z0 T101
M11
M10
G0 X0 Z0 T100
T[Tool]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
G0 X[V] Z[H] T[Comp] M[Cool]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 Z[SClear]
X0 T[LastTool]
T[Tool]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
G0 X[V] Z[H] T[Comp] M[Cool]
End

EndCode                               # End of the program
G0 X0 Z0 T[Tool]
M5
M30
%0
End

name Yasnac 2000B

% 00
N >4 Mult 10
G >2
X ->3.>4
Z ->3.>4
D >2
I ->3.>4
K ->3.>4
U ->3.>4
W ->3.>4
P ->3.>4
A 60 P
Q ->3.>4
q ->3.>4 Q
R ->3.>4
F >3.>3
T 2
t 2 ""
S >4
M >2

ModalGs 0 1 2 3 73 76 80 81 82        # List of g codes that are modal

Sequence#s N 0 1 1                    # Char, freq, incr & start
First#? N                             # Y or N  'Output 1st sequence no.
Last#? N                              # Y or N  'Output last sequence no.

Comment ( )                           # Begin End comment char.

HCode Z                               # X or X U  'Horizontal char.
VCode X                               # Y or Y V  'Vertical char.
FeedCode F                            # Feed rate char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 7                         # On, Off & Mist m codes
SpeedType G 97 96                     # CSS and RPM g codes
FeedType G 95 94                      # IPR & IPM g codes

ByDiameter? Y                         # Y or N  'Output X val. by diameter
CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? Y                        # Y or N  'Break arcs at quadrants

Inc/Abs G 91 90                       # Inc & Abs char. & values

Inch/MM 20 21                         # Inch & Metric g codes

CtrCode K I                           # I J or R or I J K L

Spaces? N                             # Y or N  'Spaces between words

Feed G1                               # Linear move
Rapid G0                              # Rapid positioning word
Cw G3                                 # Circular move clockwise
Ccw G2                                # Circular move counter clockwise

RevSigns X I                          # List of letters to reverse signs
UppercaseComments? Y                  # Y or N 'Require uppercase comments

Drill                                 # Drilling canned/manual cycle
G1 Z[H] F[Frate]
G0 Z[SClear]
end

AutoThread                            # Automatic thread canned cycle
G76 A[TParams] Q[VBite] R0
G76 X[V] Z[H] R[StartAng] P[Depth] q[Peck1] F[Frate]
end

Peck                                  # Pecking canned/manual cycle
none
end

Tap                                   # Tapping canned/manual cycle
G78 Z[H] F[FRate]
end cancel

Ream                                  # Reaming canned/manual cycle
G1 Z[H] F[FRate]
G0 Z[SClear]
end

Cancel                                # Cancel a canned/manual cycle
G80
end

StartCode                             # Start of the program
N[Block]
end

1stToolChange                         # First tool change
G50 X8.0 Z5.0
T[Tool] t[Dcomp]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

Infeed                                # Enable cutter comp
G1 X[V] Z[H] D[Dcomp] F[FRate]
end

Outfeed                               # Disable cutter comp
G1 X[V] Z[H] F[FRate]
end

ToolChange                            # Secondary tool changes
G0 X8.0 Z5.0 M5
T[LastTool] t00
N[Block]
G50 X8.0 Z5.0
T[Tool] t[Dcomp]
G0 X[V]
G[FeedType] G[SpeedType] S[Speed] M[Direct]
Z[H] M[Cool]
End

EndCode                               # End of the program
G0 X8.0 Z5.0
G28 W0 M5
G28 U0 T00 t00
M30
%0
End